home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
chkdte.arc
/
CHKDTE.DOC
< prev
next >
Wrap
Text File
|
1991-12-04
|
919b
|
24 lines
Program: CHKDTE
Purpose: To validate a date from an RPG program.
Written By: Walt Eis- Missouri-Nebraska Express
(816) 233-3158 P.O. Box 939
Q38-IBBS: ID0039 St. Joseph, MO 64502
FUNCTION
--------
This program allows easy validation of a date from an RPG program.
The date to be validated must be in MMDDYY format to use the program
as written. (I wrote it this way because some of our canned software
uses dates in that format. To change CHKDTE to validate YYMMDD dates
just change the *MDY to *YMD in the program). CHKDTE returns a '1' if
the date is invalid, a '0' if it is OK.
I use it as follows:
C CALL 'CHKDTE'
C PARM DATE 60
C *INxx PARM OK 1
Where xx is some indicator, and DATE contains the date to be checked.